0 POKE53280,.:POKE53281,.:POKE646,12:PRINTCHR$(14)
5 DV=8
10 READ D$,LO,HI:IF D$="[197]ND OF [198]ILE" THEN GOTO 500
15 SYS57812 D$,DV,0:POKE780,.:POKE781,LO:POKE782,HI:SYS65493
20 GOTO 10
498 :
499 :
500 POKE 650,128: REM REPEATING KEYS
510 POKE53269,.: REM TURN SPRITES OFF
600 REM RESET THE IMAGE MAKER PROGRAM
610 SYS57812"[211]ET-UP [194]YTES1.O",DV: POKE780,.: POKE781,52: POKE782,3: SYS65493
615 SYS57812"[211]ET-UP [194]YTES2.O",DV:POKE780,.:POKE781,.:POKE782,96:SYS65493
620 SYS57812"[211]ET-UP [194]YTES3.O",DV:POKE780,.:POKE781,.:POKE782,80:SYS65493
1000 SYS 24576
1001 POKE53269,.:REM SPRITES OFF
1005 Q=PEEK(251):IF Q=ASC("R")THEN 500
1009 PRINTCHR$(147)
1010 GOTO60000
9998 :
9999 :
10000 REM ------ ML FILE ------
10010 DATA "[210]ASTER [201]NTER.O",.,30
10020 DATA "[201]MAGE [205]AKER.SPR",.,32
10030 DATA "[201]MAGE [205]AKER1.O",.,33
10040 DATA "[201]MAGE [205]AKER2.O",.,49
10050 DATA "[211]UBROUTINES.O",.,67
10060 DATA "[201]MAGE [215]RITER.O",.,74
10065 DATA "[196]ATA [215]ORDS.O",.,21
11000 DATA "[197]ND OF [198]ILE",.,.
19998 :
19999 :
49999 END
50000 DV=8:OPEN15,DV,15,"S0:[201]MAGE [205]AKER":CLOSE15:SAVE"[201]MAGE [205]AKER",DV
50001 VERIFY"[201]MAGE [205]AKER",DV
59999 REM ZZZZZZZZZZZZZZZZZZZZZZZZZ
60000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN60020
60010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN60030
60020 NEXT:PRINT"[147]":POKE186,8:END
60030 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
60040 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
60050 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END